home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP OTL Commands.xpl < prev    next >
Text File  |  2004-02-02  |  3KB  |  92 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="5"
  4. "UIPATH 1"="Program Options\Microsoft Office\MS Office XP\Outlook"
  5. "UIPATH 2"="Program Options\Microsoft Office\MS Office 2003\Outlook"
  6. "NAME"="Create links for new items"
  7. "VERSION"="1.10"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="00010111"
  10. "TEXT 1"="Creating a new task item"
  11. "TEXT 2"="Creating a new appointment"
  12. "TEXT 3"="Creating a new e-mail message"
  13. "TEXT 4"="Creating a new note"
  14. "TEXT 5"="Creating a new appointment"
  15. "DESCRIPTION 1"="To create a new Outlook item like an email, you normally have to start Outlook, move to the folder where you wish to create the new item and click on the "New" button in the toolbar (or the menu command)."
  16. "DESCRIPTION 2"="This plug-in allows you to create batch files that will directly trigger the creation of a new item. For example, if you click on the first button a batch file will be created on your desktop that, when started, will create a new Outlook task item and opens it directly."
  17. "DESCRIPTION 3"="This is a big time saver when you often create new items and like directly links better than the Outlook menu or toolbar. "
  18. "DESCRIPTION 4"="You can also move these created batch file to any location you wish, for example you can simply drop them on your Quick Launch bar for better access. "
  19. "DESCRIPTION 5"="If you do no longer wish to use these batch files, simply delete them on your desktop."
  20. "AUTHOR"="Xteq Systems"
  21. "CONTACTURL"="http://www.xteq.com/"
  22. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  23. "COMMENT 1"=" "
  24.  
  25.  
  26.  sPCheck1="HKCU\Software\Microsoft\Office\10.0\"
  27.  sPCheck2="HKCU\Software\Microsoft\Office\11.0\"
  28.  
  29. sDesktop="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop"
  30.  
  31. sLine1="@echo off"
  32. sLine2="start Outlook.exe /c "
  33. sExtension=".cmd"
  34.  
  35. Dim aryCmd(7)
  36. Dim aryText(7)
  37.  
  38. aryCmd(1)="IPM.task" '=task
  39. aryText(1)="New Outlook Task"
  40.  
  41. aryCmd(2)="IPM.appointment" '=appointment
  42. aryText(2)="New Outlook Appointment"
  43.  
  44. aryCmd(3)="IPM.note" '=email
  45. aryText(3)="New Outlook Email"
  46.  
  47. aryCmd(4)="IPM.stickynote" '=note (strange, isn't it?)
  48. aryText(4)="New Outlook Note"
  49.  
  50. aryCmd(5)="IPM.contact" '=contact
  51. aryText(5)="New Outlook Contact"
  52.  
  53. aryCmd(6)="IPM.activity" '=journal
  54. aryText(6)="New Outlook Journal entry"
  55.  
  56. aryCmd(7)="IPM.post" '=discussion
  57. aryText(7)="New Outlook Discussion"
  58.  
  59.  
  60. Sub Plugin_Initialize 
  61.   If RegPathExists(sPCheck1)=false then
  62.      If RegPathExists(sPCheck2)=false then
  63.         Disable()
  64.      end if
  65.   end if 
  66. End Sub
  67.  
  68. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  69.  sDesk=RegReadValue(sDesktop)
  70.  if right(sDesk,1)<>"\" then
  71.     sDesk=sDesk & "\"
  72.  end if
  73.  
  74.  sFileName=sDesk & aryText(ElementIndex) & sExtension
  75.  sCmd=aryCmd(ElementIndex)
  76.  
  77.  Call KillFile(sFileName)
  78.  
  79.  Call TxtOpen(sFileName)
  80.  Call TxtInsertLine(1,sLine1) 
  81.  Call TxtInsertLine(2,sLine2 & sCMD) 
  82.  Call TxtSave()
  83.  
  84.  Call MsgInformation("The batch file <" & sFileName & "> has been created on your desktop.")
  85. End Sub
  86.  
  87. Sub Plugin_Terminate 
  88. End Sub
  89.  
  90. Sub KillFile(TheFileName)
  91.     if FileExists(TheFileName) then Call FileDelete(TheFileName)
  92. end Sub